* Ввод структурной переменной с использованием формы.

ввести форма ЧЕЛОВЕК  'Введите данные о персоне:' 'Фамилия;Имя;Отчетво;Пол;Дата рождения'
если [$УспешныйВвод]
  >Новая персона: [ЧЕЛОВЕК;Фамилия] [ЧЕЛОВЕК;Имя] [ЧЕЛОВЕК;Фамилия]
  если [ЧЕЛОВЕК;Пол] == м
    >Он мужчина и родился [ЧЕЛОВЕК;Дата рождения]
  иначе
    >Она женщина и родилась [ЧЕЛОВЕК;Дата рождения]
  конец
конец